inherited fmEnter_GroupEdit: TfmEnter_GroupEdit
  Left = 3
  Top = 13
  Width = 1280
  Height = 900
  Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1075#1088#1091#1087#1087
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel [0]
    Left = 341
    Top = 142
    Width = 99
    Height = 16
    Caption = #1057#1086#1089#1090#1072#1074' '#1075#1088#1091#1087#1087#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel [1]
    Left = 756
    Top = 33
    Width = 240
    Height = 16
    Caption = #1051#1102#1076#1080', '#1082#1086#1090#1086#1088#1099#1077' '#1085#1077' '#1074#1093#1086#1076#1103#1090' '#1074' '#1075#1088#1091#1087#1087#1099
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel [2]
    Left = 13
    Top = 17
    Width = 107
    Height = 16
    Caption = #1051#1102#1076#1080' '#1074' '#1075#1088#1091#1087#1087#1072#1093
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object RadioGroup1: TRadioGroup [3]
    Left = 12
    Top = 32
    Width = 316
    Height = 66
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ItemIndex = 0
    Items.Strings = (
      #1055#1086#1083#1091#1095#1072#1090#1077#1083#1080' '#1091#1089#1083#1091#1075
      #1044#1086#1074#1077#1088#1077#1085#1085#1099#1077' '#1083#1080#1094#1072)
    ParentFont = False
    TabOrder = 8
    OnClick = RadioGroup1Click
  end
  inherited sbBottom: TStatusBar
    Top = 846
    Width = 1272
  end
  inherited Panel1: TPanel
    Top = 801
    Width = 1272
    Align = alBottom
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 1102
    end
    inherited BitBtn2: TBitBtn
      Left = 1190
    end
  end
  object dbgClients: TcxGrid [6]
    Left = 10
    Top = 104
    Width = 319
    Height = 665
    Align = alCustom
    TabOrder = 2
    LookAndFeel.Kind = lfStandard
    object tvPeople: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Kind = skCount
          Position = spFooter
          FieldName = 'PLASTNAME'
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 10
      OptionsView.ColumnAutoWidth = True
      OptionsView.DataRowHeight = 24
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object tvPeopleColumn1: TcxGridDBColumn
        Caption = #8470
        OnGetDataText = cxGridDBTableView1Column1GetDataText
        Options.Sorting = False
        Width = 28
      end
      object tvPeoplePP: TcxGridDBColumn
        Caption = #1060#1048#1054
        DataBinding.FieldName = 'PP'
        Width = 183
      end
      object tvPeoplePDATEBIRTH: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
        DataBinding.FieldName = 'PDATEBIRTH'
        Width = 92
      end
    end
    object dbgClientsLevel1: TcxGridLevel
      GridView = tvPeople
    end
  end
  object cxGrid2: TcxGrid [7]
    Left = 341
    Top = 168
    Width = 316
    Height = 441
    Align = alCustom
    TabOrder = 3
    LookAndFeel.Kind = lfStandard
    object cxGridDBTableView2: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dsTemp
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Kind = skCount
          Position = spFooter
          FieldName = 'PLASTNAME'
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 10
      OptionsView.ColumnAutoWidth = True
      OptionsView.DataRowHeight = 24
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object cxGridDBTableView2Column1: TcxGridDBColumn
        Caption = #8470
        OnGetDataText = cxGridDBTableView2Column1GetDataText
        Options.Sorting = False
      end
      object cxGridDBTableView2PP: TcxGridDBColumn
        Caption = #1060#1048#1054
        DataBinding.FieldName = 'PP'
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = cxGridDBTableView2
    end
  end
  object cxButton5: TcxButton [8]
    Left = 662
    Top = 321
    Width = 86
    Height = 46
    Caption = #1042#1082#1083'.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = cxButton5Click
    Colors.Default = clRed
    Glyph.Data = {
      56020000424D560200000000000076000000280000001E0000001E0000000100
      040000000000E001000000000000000000001000000000000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
      00000000000000000000088888888888888888888888888880000F8888888888
      888888888888888880000F7777777777777777777777777880000F7777777777
      777777777777777880000F7777777777777777777777777880000F7777777777
      777777777777777880000F7777777777777777777777777880000F7777777777
      777777777777777880000F7777777777777777777777777880000F7777777777
      777777777777777880000F77777777777FF77777777FF77880000F777777777F
      F7F777777FF7F77880000F7777777FF700F7777FF700F77880000F77777FF700
      00F77FF70000F77880000F777FF7000000FFF7000000F77880000F7788000000
      00F800000000F77880000F777788000000F788000000F77880000F7777778800
      00F777880000F77880000F777777778800F777778800F77880000F7777777777
      88F777777788F77880000F777777777777F777777777F77880000F7777777777
      777777777777777880000F7777777777777777777777777880000F7777777777
      777777777777777880000F7777777777777777777777777880000F7777777777
      777777777777777880000F7777777777777777777777777880000FFFFFFFFFFF
      FFFFFFFFFFFFFFFF800000000000000000000000000000000000}
    LookAndFeel.SkinName = 'GlassOceans'
  end
  object cxButton1: TcxButton [9]
    Left = 661
    Top = 408
    Width = 89
    Height = 49
    Caption = #1048#1089#1082#1083'.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = cxButton1Click
    Glyph.Data = {
      56020000424D560200000000000076000000280000001E0000001E0000000100
      040000000000E001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
      00000000000000000000077777777777777777777777777770000F7777777777
      777777777777777770000F8888888888888888888888888770000F8888888888
      888888888888888770000F88888888888888888888888887700A0F8888888888
      8888888888888887702C0F88888888888888888888888887704C0F8888888888
      888888888888888770900F8888888888888888888888888770A80F887F888888
      887F88888888888770150F8878FF88888878FF888888888770420F887008FF88
      887008FF8888888770A60F88700008FF88700008FF88888770000F8870000008
      FF70000008FF888770270F8870000000077000000007788770CA0F8870000007
      787000000778888770A60F8870000778887000077888888770000F8870077888
      887007788888888770250F8877788888887778888888888770CA0F8878888888
      887888888888888770A60F8888888888888888888888888770000F8888888888
      888888888888888770250F8888888888888888888888888770CA0F8888888888
      888888888888888770A60F8888888888888888888888888770000F8888888888
      888888888888888770250F8888888888888888888888888770CA0FFFFFFFFFFF
      FFFFFFFFFFFFFFFF702600000000000000000000000000000000}
    Layout = blGlyphRight
    LookAndFeel.SkinName = 'DarkSide'
  end
  object cxGrid1: TcxGrid [10]
    Left = 752
    Top = 104
    Width = 513
    Height = 665
    Align = alCustom
    TabOrder = 6
    LookAndFeel.Kind = lfStandard
    object cxGridDBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      OnCellClick = cxGridDBTableView1CellClick
      DataController.DataSource = dsNotGroup
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Kind = skCount
          Position = spFooter
          FieldName = 'PLASTNAME'
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsBehavior.IncSearchItem = cxGridDBTableView1PP
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.CellSelect = False
      OptionsSelection.HideFocusRectOnExit = False
      OptionsSelection.InvertSelect = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.NavigatorOffset = 10
      OptionsView.ColumnAutoWidth = True
      OptionsView.DataRowHeight = 24
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object cxGridDBTableView1Column1: TcxGridDBColumn
        Caption = #8470
        OnGetDataText = cxGridDBTableView1Column1GetDataText
        Options.Sorting = False
        Width = 25
      end
      object cxGridDBTableView1PP: TcxGridDBColumn
        Caption = #1060#1048#1054
        DataBinding.FieldName = 'PP'
        Width = 213
      end
      object cxGridDBTableView1SDNAME: TcxGridDBColumn
        Caption = #1057#1090#1072#1090#1091#1089
        DataBinding.FieldName = 'SDNAME'
        Width = 137
      end
      object cxGridDBTableView1ACT: TcxGridDBColumn
        Caption = #1040#1082#1090#1091#1072#1083#1100#1085#1086#1089#1090#1100
        DataBinding.FieldName = 'ACT'
        Width = 122
      end
    end
    object cxGridLevel1: TcxGridLevel
      GridView = cxGridDBTableView1
    end
  end
  object cxButton2: TcxButton [11]
    Left = 904
    Top = 777
    Width = 297
    Height = 46
    Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1075#1088#1091#1087#1087#1091
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    Visible = False
    OnClick = cxButton2Click
    Colors.Default = clRed
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000CE0E0000D80E00001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333387F3333333333333333333333333333387F333333333333344333
      3333333333387F3333333333333443333333333333387F333333333333344333
      3333333333387F3333333333333443333333333333387F333333333333344333
      3333387FFFFFFFFFFFFF3344444444444433387777777F777777334444444444
      4433388888887F8888883333333443333333333333387F333333333333344333
      3333333333387F3333333333333443333333333333387F333333333333344333
      3333333333387F33333333333334433333333333333877333333333333333333
      3333333333388833333333333333333333333333333333333333}
    LookAndFeel.SkinName = 'GlassOceans'
    NumGlyphs = 2
  end
  object Edit1: TEdit [12]
    Left = 754
    Top = 60
    Width = 316
    Height = 33
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    OnChange = Edit1Change
  end
  inherited dlgDS: TDataSource
    DataSet = qRel
    Left = 240
    Top = 48
  end
  object qRel: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterOpen = qRelAfterOpen
    SQL.Strings = (
      
        'SELECT PR.*, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,'#39 +
        ' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    PS.SDID, P.PDATEBIRTH, SD.SDNAME, P.PID'
      'FROM P_REL PR'
      'INNER JOIN PEOPLE P ON P.PID = PR.PID'
      'LEFT OUTER JOIN P_STATUS PS ON PS.PID = P.PID'
      'LEFT OUTER JOIN SYS_DIC Sd ON sd.SDID = PS.SDID'
      'WHERE PS.SDID = :SDID and P.PISDELETE IS NULL')
    Left = 272
    Top = 48
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SDID'
        ParamType = ptUnknown
      end>
    object qRelPRID: TIntegerField
      FieldName = 'PRID'
      Origin = '"P_REL"."PRID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qRelPID: TIntegerField
      FieldName = 'PID'
      Origin = '"P_REL"."PID"'
    end
    object qRelPID_GROUP: TIntegerField
      FieldName = 'PID_GROUP'
      Origin = '"P_REL"."PID_GROUP"'
    end
    object qRelPRUSERENTER: TIBStringField
      FieldName = 'PRUSERENTER'
      Origin = '"P_REL"."PRUSERENTER"'
      Size = 40
    end
    object qRelPRTIMEENTER: TDateTimeField
      FieldName = 'PRTIMEENTER'
      Origin = '"P_REL"."PRTIMEENTER"'
    end
    object qRelPRUSEREDIT: TIBStringField
      FieldName = 'PRUSEREDIT'
      Origin = '"P_REL"."PRUSEREDIT"'
      Size = 40
    end
    object qRelPRTIMEEDIT: TDateTimeField
      FieldName = 'PRTIMEEDIT'
      Origin = '"P_REL"."PRTIMEEDIT"'
    end
    object qRelPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qRelSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
    object qRelPDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
    object qRelSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qRelPID1: TIntegerField
      FieldName = 'PID1'
      Origin = '"PEOPLE"."PID"'
      Required = True
    end
  end
  object IBUpdateSQL1: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  PRID,'
      '  PID,'
      '  PID_GROUP,'
      '  PRUSERENTER,'
      '  PRTIMEENTER,'
      '  PRUSEREDIT,'
      '  PRTIMEEDIT,'
      '  PP,'
      '  SDID,'
      '  PDATEBIRTH,'
      '  SDNAME,'
      '  PID1'
      'from P_REL '
      'where'
      '  PRID = :PRID')
    ModifySQL.Strings = (
      'update P_REL'
      'set'
      '  PID = :PID,'
      '  PID_GROUP = :PID_GROUP,'
      '  PRID = :PRID,'
      '  PRTIMEEDIT = :PRTIMEEDIT,'
      '  PRTIMEENTER = :PRTIMEENTER,'
      '  PRUSEREDIT = :PRUSEREDIT,'
      '  PRUSERENTER = :PRUSERENTER'
      'where'
      '  PRID = :OLD_PRID')
    InsertSQL.Strings = (
      'insert into P_REL'
      
        '  (PID, PID_GROUP, PRID, PRTIMEEDIT, PRTIMEENTER, PRUSEREDIT, PR' +
        'USERENTER)'
      'values'
      
        '  (:PID, :PID_GROUP, :PRID, :PRTIMEEDIT, :PRTIMEENTER, :PRUSERED' +
        'IT, :PRUSERENTER)')
    DeleteSQL.Strings = (
      'delete from P_REL'
      'where'
      '  PRID = :OLD_PRID')
    Left = 480
    Top = 104
  end
  object qTemp: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      
        'SELECT PR.*, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,'#39 +
        ' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    PS.SDID, P.PDATEBIRTH, SD.SDNAME, P.PID'
      'FROM P_REL PR'
      'INNER JOIN PEOPLE P ON P.PID = PR.PID'
      'LEFT OUTER JOIN P_STATUS PS ON PS.PID = P.PID'
      'LEFT OUTER JOIN SYS_DIC Sd ON sd.SDID = PS.SDID'
      'WHERE PR.PID_GROUP = :PID_GROUP and P.PISDELETE IS NULL')
    UpdateObject = IBUpdateSQL1
    GeneratorField.Field = 'PRID'
    GeneratorField.Generator = 'GEN_P_REL_ID'
    Left = 448
    Top = 104
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PID_GROUP'
        ParamType = ptUnknown
      end>
    object qTempPRID: TIntegerField
      FieldName = 'PRID'
      Origin = '"P_REL"."PRID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qTempPID: TIntegerField
      FieldName = 'PID'
      Origin = '"P_REL"."PID"'
    end
    object qTempPID_GROUP: TIntegerField
      FieldName = 'PID_GROUP'
      Origin = '"P_REL"."PID_GROUP"'
    end
    object qTempPRUSERENTER: TIBStringField
      FieldName = 'PRUSERENTER'
      Origin = '"P_REL"."PRUSERENTER"'
      Size = 40
    end
    object qTempPRTIMEENTER: TDateTimeField
      FieldName = 'PRTIMEENTER'
      Origin = '"P_REL"."PRTIMEENTER"'
    end
    object qTempPRUSEREDIT: TIBStringField
      FieldName = 'PRUSEREDIT'
      Origin = '"P_REL"."PRUSEREDIT"'
      Size = 40
    end
    object qTempPRTIMEEDIT: TDateTimeField
      FieldName = 'PRTIMEEDIT'
      Origin = '"P_REL"."PRTIMEEDIT"'
    end
    object qTempPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qTempSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
    object qTempPDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
    object qTempSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qTempPID1: TIntegerField
      FieldName = 'PID1'
      Origin = '"PEOPLE"."PID"'
    end
  end
  object dsTemp: TDataSource
    DataSet = qTemp
    Left = 416
    Top = 104
  end
  object dsNotGroup: TDataSource
    DataSet = qNotGroup
    Left = 840
    Top = 144
  end
  object qNotGroup: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dlgDS
    SQL.Strings = (
      
        'SELECT (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,'#39' '#39')||'#39 +
        ' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    PS.SDID, P.PDATEBIRTH, SD.SDNAME, P.PID, SD1.SDNAME AS act'
      'FROM PEOPLE P'
      'LEFT OUTER JOIN P_STATUS PS ON PS.PID = P.PID'
      'LEFT OUTER JOIN SYS_DIC Sd ON sd.SDID = PS.SDID'
      'LEFT OUTER JOIN P_STEPACT PSS ON PSS.PID = P.PID'
      'LEFT OUTER JOIN SYS_DIC Sd1 ON sd1.SDID = PSS.PSTEP'
      'WHERE NOT EXISTS('
      '                SELECT PR.PID'
      '                FROM P_REL PR'
      '                WHERE PR.PID = P.PID'
      '                )'
      '      AND PS.SDID IN (1246, 1248) and P.PISDELETE is null'
      'order by 1')
    Left = 872
    Top = 136
    object qNotGroupPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qNotGroupSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
    object qNotGroupPDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
    object qNotGroupSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qNotGroupPID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qNotGroupACT: TIBStringField
      FieldName = 'ACT'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object qGenGr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dsTemp
    SQL.Strings = (
      'SELECT GEN_ID(GEN_P_REL_GROUP,1) FROM rdb$database')
    Left = 280
    Top = 624
    object qGenGrGEN_ID: TLargeintField
      FieldName = 'GEN_ID'
      ProviderFlags = []
    end
  end
end
